my $blogger = Net::Blogger->new(engine=>"slash",debug=>1);
$blogger->Username(2785); $blogger->Password("******"); $blogger->Proxy("http://use.perl.org/journal.pl"); $blogger->Uri("http://use.perl.org/Slash/Journal/SOAP");
my $post = "Net::Blogger::Engine::Slash::slashcode\nhello world, part two"; my $pid = $blogger->newPost(postbody=>\$post);
my $post = $blogger->getPost(postid=>$pid); my $body = $post->{'content'} ."\nquack quack quack";
$blogger->editPost( postid => $pid, postbody => $body, );
# Why is this going to call blogger.deletePost ?!?! # What have I done to anger the symbol table...
$blogger->deletePost(postid=>$pid);